home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 March / inter@ivo 1997-03.iso / cybint14 / bin / demos.dxr / 00008.ls < prev    next >
Encoding:
Text File  |  1997-02-24  |  416 b   |  25 lines
  1. on exitFrame
  2.   global act
  3.   if act = 0 then
  4.     if rollOver(3) then
  5.       cursor([901, 902])
  6.       Loopframe()
  7.     else
  8.       if rollOver(22) or rollOver(23) then
  9.         cursor([901, 902])
  10.       else
  11.         cursor(-1)
  12.       end if
  13.     end if
  14.   end if
  15.   if act = 1 then
  16.     if rollOver(25) or rollOver(26) then
  17.       cursor([901, 902])
  18.     else
  19.       cursor(-1)
  20.     end if
  21.     Loopframe()
  22.   end if
  23.   go("loop")
  24. end
  25.